home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / demos / referenc / orsay / dataor / guide.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  216 b   |  13 lines
  1. on exitFrame
  2.   puppetTempo(6)
  3.   set volson to the volume of sound 1
  4.   if volson > 20 then
  5.     fadesound()
  6.     go(the frame)
  7.   else
  8.     put the timer
  9.     sound stop 1
  10.     set the volume of sound 1 to 180
  11.   end if
  12. end
  13.